home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 February / 64er_Magazin_90-02_1990_Markt__Technik_de_Side_A.d64 / mini-ass demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.0 KB  |  188 lines
  1. 30 fori=1to56:readi$:next:dl=peek(65):dh=peek(66):fori=1to12:readi$:next:readpz
  2. 31 z=2:f=0:d=0:readb$:bl=peek(65):bh=peek(66):zl=peek(63):zh=peek(64):l$=left$(b$,3):restore
  3. 32 op$="0":h$=mid$(b$,5,1):l=len(b$):fori=1to56:readv$:on(l$=left$(v$,3))+2goto33:next:goto40
  4. 33 z$="":poke65,dl:poke66,dh:fori=6tol:on-(l<6)goto35:z$=mid$(b$,i,1):h=asc(z$)
  5. 34 ifh>47thenifh<71thenh$=h$+" ":op$=op$+z$:z$=""
  6. 35 h$=h$+z$:next:fori=1to12:readaf$:on(h$=af$)+2goto36:next:goto40
  7. 36 z=z+2:h=asc(mid$(v$,z,1)):z=z-(h>80):f=f+1-(h>80)*(h-80):on-(f>i)goto 40
  8. 37 on-(i>f)goto36:m$=mid$(v$,z,2):h=asc(m$):pokepz,(h-65)*16+asc(right$(m$,1))-65
  9. 38 printpz,b$:pz=pz+1:fori=1tolen(op$):h=asc(mid$(op$,i,1))-48:d=d*16+h+(h>16)*7:next
  10. 39 g=int(d/256):pokepz,d-g*256:pokepz+1,g:pz=pz+int(len(op$)/2):poke65,bl:poke66,bh:goto31
  11. 40 print" syntax error in";zl+zh*16:end:dataldaqkjknkflnljlflbkbs,starinifjnjjjfjbibs
  12. 41 dataldxqkckokgqloslgr,stxrioigujgr,ldyqkakmkelmqleu,styrimierjeu,incrooogpoqpgu
  13. 42 datadecrmomgnoqngu,jsrrcay,jmpremxgm,adcqgjgngfhnhjhfhbgbs,sbcqojonofpnpjpfpbobs
  14. 43 datainxoi\,inymi\,dexmk\,deyii\,beqqpa[,bneqna[,bcsqla[,bccqja[,bmiqda[,bplqba[
  15. 44 dataandqcjcncfdndjdfdbcbs,oraqajanafbnbjbfbbabs,eorqejeneffnfjfffbebs,bitrcmcex
  16. 45 datacmpqmjmnmfnnnjnfnbmbs,cpxqoaomoex,cpyqmammmex,bvsqha[,bvcqfa[,rtsga\,rtiea\
  17. 46 datataxkk\,txaik\,tayki\,tyaji\,clcbi\,secdi\,cldni\,sedpi\,clifi\,seihi\,clvli\
  18. 47 dataphaei\,plagi\,phpai\,plpci\,txsjk\,tsxlk\,brkaa\,nopok\,aslraoagboqbgsakq
  19. 48 datalsrreoegfoqfgsekq,rolrcocgdoqdgsckq,rorrgogghoqhgsgkq,"",#$  ,$    ,"$  "
  20. 49 data"$    ,x","$    ,y","$  ,x","($  ),y","($  ,x)","$  ,y",a,($    )
  21. 50 :
  22. 100 data 8192
  23. 101 data "lda #$00"
  24. 102 data "lda $0000"
  25. 103 data "lda $00"
  26. 104 data "lda $0000,x"
  27. 105 data "lda $0000,y"
  28. 106 data "lda $00,x"
  29. 107 data "lda ($00,x)"
  30. 108 data "lda ($00),y"
  31. 109 data "ldx #$00"
  32. 110 data "ldx $0000"
  33. 111 data "ldx $00"
  34. 112 data "ldx $0000,y"
  35. 113 data "ldx $00,y"
  36. 114 data "ldy #$00"
  37. 115 data "ldy $0000"
  38. 116 data "ldy $00"
  39. 117 data "ldy $0000,x"
  40. 118 data "ldy $00,x"
  41. 119 :
  42. 120 data "sta $0000"
  43. 121 data "sta $00"
  44. 122 data "sta $0000,x"
  45. 123 data "sta $0000,y"
  46. 124 data "sta $00,x"
  47. 125 data "sta ($00,x)"
  48. 126 data "sta ($00),y"
  49. 127 data "stx $0000"
  50. 128 data "stx $00"
  51. 129 data "stx $00,y"
  52. 130 data "sty $0000"
  53. 131 data "sty $00"
  54. 132 data "sty $00,x"
  55. 133 :
  56. 134 data "tax"
  57. 135 data "txa"
  58. 136 data "tay"
  59. 137 data "tya"
  60. 138 data "txs"
  61. 139 data "tsx"
  62. 140 :
  63. 141 data "adc #$00"
  64. 142 data "adc $0000"
  65. 143 data "adc $00"
  66. 144 data "adc $0000,x"
  67. 145 data "adc $0000,y"
  68. 146 data "adc $00,x"
  69. 147 data "adc ($00,x)"
  70. 148 data "adc ($00),y"
  71. 149 data "sbc #$00"
  72. 150 data "sbc $0000"
  73. 151 data "sbc $00"
  74. 152 data "sbc $0000,x"
  75. 153 data "sbc $0000,y"
  76. 154 data "sbc $00,x"
  77. 155 data "sbc ($00,x)"
  78. 156 data "sbc ($00),y"
  79. 157 :
  80. 158 data "and #$00"
  81. 159 data "and $0000"
  82. 160 data "and $00"
  83. 161 data "and $0000,x"
  84. 162 data "and $0000,y"
  85. 163 data "and $00,x"
  86. 164 data "and ($00,x)"
  87. 165 data "and ($00),y"
  88. 166 data "ora #$00"
  89. 167 data "ora $0000"
  90. 168 data "ora $00"
  91. 169 data "ora $0000,x"
  92. 170 data "ora $0000,y"
  93. 171 data "ora $00,x"
  94. 172 data "ora ($00,x)"
  95. 173 data "ora ($00),y"
  96. 174 data "eor #$00"
  97. 175 data "eor $0000"
  98. 176 data "eor $00"
  99. 177 data "eor $0000,x"
  100. 178 data "eor $0000,y"
  101. 179 data "eor $00,x"
  102. 180 data "eor ($00,x)"
  103. 181 data "eor ($00),y"
  104. 182 :
  105. 183 data "inx"
  106. 184 data "iny"
  107. 185 data "dex"
  108. 186 data "dey"
  109. 187 data "inc $0000"
  110. 188 data "inc $00"
  111. 189 data "inc $0000,x"
  112. 190 data "inc $00,x"
  113. 191 data "dec $0000"
  114. 192 data "dec $00"
  115. 193 data "dec $0000,x"
  116. 194 data "dec $00,x"
  117. 195 :
  118. 196 data "asl a"
  119. 197 data "asl $0000"
  120. 198 data "asl $00"
  121. 199 data "asl $0000,x"
  122. 200 data "asl $00,x"
  123. 201 data "lsr a"
  124. 202 data "lsr $0000"
  125. 203 data "lsr $00"
  126. 204 data "lsr $0000,x"
  127. 205 data "lsr $00,x"
  128. 206 data "rol a"
  129. 207 data "rol $0000"
  130. 208 data "rol $00"
  131. 209 data "rol $0000,x"
  132. 210 data "rol $00,x"
  133. 211 data "ror a"
  134. 212 data "ror $0000"
  135. 213 data "ror $00"
  136. 214 data "ror $0000,x"
  137. 215 data "ror $00,x"
  138. 216 :
  139. 217 data "cmp #$00"
  140. 218 data "cmp $0000"
  141. 219 data "cmp $00"
  142. 220 data "cmp $0000,x"
  143. 221 data "cmp $0000,y"
  144. 222 data "cmp $00,x"
  145. 223 data "cmp ($00,x)"
  146. 224 data "cmp ($00),y"
  147. 225 data "cpx #$00"
  148. 226 data "cpx $0000"
  149. 227 data "cpx $00"
  150. 228 data "cpy #$00"
  151. 229 data "cpy $0000"
  152. 230 data "cpy $00"
  153. 231 :
  154. 232 data "beq #$00"
  155. 233 data "bne #$00"
  156. 234 data "bcs #$00"
  157. 235 data "bcc #$00"
  158. 236 data "bmi #$00"
  159. 237 data "bpl #$00"
  160. 238 data "bvs #$00"
  161. 239 data "bvc #$00"
  162. 240 :
  163. 241 data "clc"
  164. 242 data "sec"
  165. 243 data "cld"
  166. 244 data "sed"
  167. 245 data "cli"
  168. 246 data "sei"
  169. 247 data "clv"
  170. 248 :
  171. 249 data "jmp $0000"
  172. 250 data "jmp ($0000)"
  173. 251 :
  174. 252 data "jsr $0000"
  175. 253 data "rts"
  176. 254 :
  177. 255 data "pha"
  178. 256 data "pla"
  179. 257 data "php"
  180. 258 data "plp"
  181. 259 :
  182. 260 data "rti"
  183. 261 data "brk"
  184. 262 :
  185. 263 data "bit $0000"
  186. 264 data "bit $00"
  187. 265 data "nop"
  188.